﻿Public Class Form24


    Private Sub Form24_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'Test4DataSet.tbl_thu' table. You can move, or remove it, as needed.
        Me.Tbl_thuTableAdapter.Fill(Me.Test4DataSet.tbl_thu)
        Me.Tbl_testTableAdapter.Fill(Me.Test4DataSet.tbl_test)
        'TODO: This line of code loads data into the 'Test4DataSet.tbl_test' table. You can move, or remove it, as needed.
        Me.Tbl_thuIUltraGrid.setDoiTuongXuLyDuLieu(Me.Test4DataSet.tbl_thu, Me.Tbl_thuBindingSource, Me.Tbl_thuTableAdapter, Me.Test4DataSet)
        Me.Tbl_thuIUltraGrid.setThemIUltraDropDown(Me.Tbl_thuIUltraDropDown, Me.Test4DataSet.tbl_test)
        ' If Tbl_thuIUltraGrid.ActiveRow.Cells("ma").IsActiveCell Then

        'End If
        'Tbl_thuIUltraGrid.setTimKiemTheoShift()
    End Sub

    Private Sub Tbl_thuIUltraGrid_AfterCellUpdate(sender As Object, e As Infragistics.Win.UltraWinGrid.CellEventArgs) Handles Tbl_thuIUltraGrid.AfterCellUpdate
        MessageBox.Show("AfterCellUpdate")
    End Sub

    'Private Sub Tbl_thuIUltraGrid_AfterEnterEditMode(sender As Object, e As System.EventArgs) Handles Tbl_thuIUltraGrid.AfterEnterEditMode
    '    MessageBox.Show("AfterEnterEditMode")
    'End Sub

    'Private Sub Tbl_thuIUltraGrid_AfterExitEditMode(sender As Object, e As System.EventArgs) Handles Tbl_thuIUltraGrid.AfterExitEditMode
    '    MessageBox.Show("AfterExitEditMode")
    'End Sub

    'Private Sub Tbl_thuIUltraGrid_AfterSelectChange(sender As Object, e As Infragistics.Win.UltraWinGrid.AfterSelectChangeEventArgs) Handles Tbl_thuIUltraGrid.AfterSelectChange
    '    MessageBox.Show("AfterSelectChange")
    'End Sub

    Private Sub Tbl_thuIUltraGrid_AfterCellListCloseUp(sender As Object, e As Infragistics.Win.UltraWinGrid.CellEventArgs) Handles Tbl_thuIUltraGrid.AfterCellListCloseUp
       
    End Sub

    Private Sub Tbl_thuIUltraGrid_BeforeCellActivate(sender As Object, e As Infragistics.Win.UltraWinGrid.CancelableCellEventArgs) Handles Tbl_thuIUltraGrid.BeforeCellActivate
        ' Me.Tbl_thuIUltraGrid.setIUltraDropDownFilter(Me.Tbl_thuIUltraDropDown, "ma", Me.Tbl_thuIUltraGrid.ActiveRow.Cells("ma").Value)
    End Sub

    Private Sub Tbl_thuIUltraGrid_BeforeCellDeactivate(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles Tbl_thuIUltraGrid.BeforeCellDeactivate
        Me.Tbl_thuIUltraGrid.setIUltraDropDownFilter(Me.Tbl_thuIUltraDropDown, Me.Test4DataSet.tbl_test, "ma", "ma")
    End Sub
End Class